Справочное руководство по TDMS 5.0 API
VB Script (1)
Смотри также Послать замечания

Исходный код

Option Explicit
Call ShowPathInfo()


'==============================================================================
' Сообщить путь к локальной рабочей папке текущего пользователя
'==============================================================================
Sub ShowPathInfo()

        MsgBox "Путь к рабочей папке текущего пользователя: " & Chr(13) & _
                """" & ThisApplication.WorkFolder & """", _
                vbInformation, "Информация о текущей настройке"
End Sub 
'==============================================================================